Reference
  Util\Color.txt
End Reference

Import StdWindow
  Wnd = Window
End Import

Procedure CreateWindow(x, y, width, height)

  Dim panel = Wnd.CreatePanel(x, y, width, height)

  panel.AddBackColor(0, 0, width, height, SetAlpha(Color.MidnightBlue, 224))
  panel.AddForeColor(1, 1, width - 3, 1, Color.White)
  panel.AddForeColor(1, 1, 1, height - 3, Color.White)
  panel.AddForeColor(1, height - 2, width - 2, 1, Color.DarkGray)
  panel.AddForeColor(width - 2, 1, 1, height - 2, Color.DarkGray)
  panel.AddForeColor(0, 0, width - 1, 1, Color.Gray)
  panel.AddForeColor(0, 0, 1, height - 1, Color.Gray)
  panel.AddForeColor(0, height - 1, width, 1, Color.Black)
  panel.AddForeColor(width - 1, 0, 1, height, Color.Black)
  panel.AddForeColor(2, 2, width - 4, 2, Color.Gray)
  panel.AddForeColor(2, 2, 2, height - 4, Color.Gray)
  panel.AddForeColor(width - 4, 2, 2, height - 4, Color.Gray)
  panel.AddForeColor(2, height - 4, width - 4, 2, Color.Gray)

  panel.SetClientBounds(4, 4, panel.Width - 8, panel.Height - 8)

  Return panel

End Procedure
